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Ztitle "RMSSTATS = Calculate and Report File Statistics 
module rmsstats 
ident='V04-000') = begin 


M 4 
RMSSTATS = Calculate and Report File Statistics 16-Sep-1984 90:16:68 Ax-11 Bli 


' 
Lee RARER EAA REET EEE EERE EEE 


'# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
!* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


® 
* 
® 
: *® 
i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
*® 

i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
® 

® 

® 

® 

& 

* 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee R REE E EEA EERE AA ERE E ATER EEe 
' 


'e¢ 
Facility: VAX/VMS Analyze Facility, Calculate and Report File Statistics 
! Abstract: This module is responsible for accumulating, calculating, and 


reporting statistics about RMS files. This includes both the 
analysis primaries for FDL files, and statistics reports. 
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' 

' 

i 

: 
op Environment: 
0040 ; Author: Paul C. Anagnostopoulos, Creation Date: 11 August 1981 
0042 Modified By: : 
0044 1: v03-005 PCA1012 Paul C. Anagnostopoulos 6-Apr-1983 
0045 : Do not generate data record compression statistic for 
0046 . secondary keys, because data record compression is 
0047 : meaningless for them. . ; 
0048 : Duplicates per SIDR should count just duplicates, not 
0049 : including the first pointer. a 
Boee Add support for the index level 1 record count statistic. 
4 i v03-004 PCA1011 Paul C. Anagnostopoulos 11-Apr-1983 
005 : Change the message prefix to ANLRMS$_ to ensure that 
0054 . message symbols are unique across alT ANALYZEs. This 
Opee } is necessitated by the new merged message files. 
0057 i v03-003 PCA0064 Paul Anagnostopoulos 29-Mar-1982 
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Use quadword arithmetic when calculating percentages 
so large files don't result in garbage numbers. 


V03=002 PCA0063 Paul magrescepeules 29-Mar-1982 
tnange calculation of index record statistics so they 
are parallel to data record statistics. 


v03=001 PCA00SO Paul Anagnostopoulos 26-Mar-1982 
Fix a bug in the way data record compression was 
calculated. 
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:; 7 0069 1 %sbttl ‘Module Declarations’ 
Se a re 3). q 
+ Bay: - 0071 1 ! Libraries and Requires: 
“Pies ¢ Boog 1! 
i 0075 1 
: 2 0074 1 Library ‘Llib’; 
is £6 0075 1 require ‘rmsreq'; 
Fee gi 0584 1 
i; 0585 1! 
ia f9 0586 1 ! Table of Contents: 
i; 80 0587 1! 
is6 (8 0588 #1 ; 
is Be 0589 1 forward routine : 
is 83 0590 1 anl$fdl_analysis_of_area: novalue, 
i; 6} 0591—«1 anl$fdl_analysis_of_key: novalue, 
is 689 Beas 1 anl$area_statistics: novalue, 
i; 86 0593 (1 anl$key_st2tistics: novalue, 
tee id 0594 1 anl$percentage 
3 88 0595 1 anl$bucket_callback: novalue, 
i: 8 0596 1 ani$reclaimed bucket_callback: novalue, 
oe 0597 1 anl$index_callback: novalue, 
E 91 0598 #1 anl$data_callback: novalue; 
ES. 0599 1 
E 93 0600 1! 
ls; 94 0601 1 ! External References: 
3 95 0602 1! 
:. 0603 1 : 
ae 0604 1 external routine ‘ 
“Sid 0605 1 anl$format_line, 
; 0606 1 anl$format_skip; 
; 100 0607 1 
3; ©6101 0608 1 external 
s 302 0609 1 anl$gl_fat: ref blockl,bytel, 
; 103 0610 1 anl$gw_prolog: word; 
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Own Variables: 


The following variables are used to accumulate statistical data about 
the file we are currently analyzing. The following abbreviations are 
used in the variable names: 


blk block 

Cc count : 
comp compression 
Len Length 

max max imum 

rec record 

t total 


own 
statistics_accumulators: vector([20,long] initial(rep 20 of (0)); 


! This variable accumulates data about a single area of an indexed file. 


bind 
reclaimed_blk_c = statistics_accumulators( 0]: long; 


PAA AAA AA AAA AAAAAA AA AAAS 


! These variables accumulate data about a single | of an indexed file. 
! There is a set of variables for the primary data level and a set for 
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06 ! the index levels. 

063 ; 

063 bind re 

063 data_blkc = statistics_accumulators({ 1]: long, 
0640 data_filT_t = statistics_accumulators[{ 2]: long, 
0641 data_rec_c = statistics _accumulators( 3]: long, 
0642 data_rec_len_t = statistics _accumulatorsl 4]: long, 
0643 data_comp_key_len_t = statistics_accumulators({ 5]: long, 
0644 data_comp_rec_len_t = statistics_accumulators{ 6]: long, 
prez data_sidr_ptr_c = statistics_accumulators( 7]: long, 
0647 index_blk c = statistics_accumulators({ 8]: long, 
0648 index_filT_t = statistics_accumulators( 9]: long, 
0649 ingex_rec_c = statistics_accumulators{10): long, 
0650 index_levell_rec ic = statistics_accumulators({11J: long, 
0651 index_rec_len_t = statistics_accumulators(12J]: long, 
0652 index_comp_rec_len_t = statistics_accumulatorsl13]: long, 
0653 max_depth = statistics_accumulators(14]: long; 
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v04-000 ANLSFDL_ANALYSIS_OF_LAREA = Generate ANALYSIS_OF 14-Sep-1984 11:53:02 ANALYZ.SRCJRMSSTATS.B32;1 

133 $638 ! Rsbttl "ANLSFDL_ANALYSIS_OF AREA = Generate ANALYSIS_OF_AREA Primary’ 

151 B628 1 ! Functional Description: : 7 : 

126 0657 1! This routine is responsible for generating an analysis primary for 

15 0658 1! an indexed file area. This routine is called after the appropriate 

154 0659 1! statistics have been accumulated via the statistics callback 

155 0660 1! mechanism described below. 

156 0661 1! 

157 0662 1 ! Formal Parameters: . 

158 0665 1! area_id The ID of this area. 

159 664 1! 

160 665 1 ! Implicit Inputs: 

161 0666 1! global data 

162 0667 1! oe 

163 se33 1! Implicit Outputs: 

196 669 1! global data 

165 0670 1! 

166 0671 1 ! Returned Value: 

167 0672 1! none 

168 oef> Fe 

169 0674 1 ! Side Effects: 

170 0675 1! 

171 0676 1 !-- 

172 0677 1 

173 0678 1 

174 0679 2 global routine anl$fdl_analysis_of_area(area_id): novalue = begin 

175 0680 2 

176 0681 2 , : ‘ 

177 0682 2 ! We begin with a heading which includes the area ID. 

178 06835 2 ; 

179 0684 2 anl$format_skip(0); 

H+ pee? § anl$format_line(0,0,anirms$_fdlanalarea,.area_id); 

182 0687 2 ! Now we put out the statistic that says how many blocks worth of 

183 0688 2 ! reclaimed space there is. 

184 0689 2 ‘ y 

+ +4 ot § anl$format_Line(0,1,anirms$_fdlrecl,.reclaimed_blk_c); 

H+ 34 843 § ! Clear the statistics accumulators for the next area. 

13° Begs § ch$fill(%x"00", Zallocation(statistics_accumulators) ,statistics_accumulators); 

191 0696 2 return; 

192 0697 2 

193 0698 1 end; 
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-IDENT \V04-000\ 

-PSECT SOWNS,NOEXE ,2 


00000000# 00000 STATISTICS ACCURULATORS: 
LONG 0£20) 


RECLAIMED_BLK_C= — STATISTICS_ACCUMULATORS 
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UMULATORS+44 
CUMULATORS+48 


CUMULATORS+52 
STATIS CCUMULATORS+56 

ANLRMS$ -0K. 1A RASS _ALLOC 

ANLRMS$_A 

ANLRMSS$_ “BACKUP, SANLRMSS. BKT 

ANLRMS$_B AREA 

ANLRMS$_ ~BRTCHECK 


1 is 
¥Z.SRC 
ICS_AC 
ICS_AC 
ICS_AC 
ICS_AC 
ICS_AC 
ICS-ACCU 
ICSAC 
ICS_AC 
ICS-AC 
ICS_AC 
ICS-AC 
ICS~AC 
ICS_AC 
ICS-A 
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TFREE 
ANLRMS$_ mai ANLRMS$_BKTLEVEL 
ANLRMS$_ KTNEXT 
ANLRMS$_BKTPTRSIZE 

$"BKTRECID 


ANLRMS$_BKTVBNFREE 
ANLRMS$_BUCKETSIZE 

Ss ANLRMS$_CELLDATA 
LAGS 


M 
ANLRMS$~CHECKHDG 
ANLRMS$~CONTIG, ANLRMS$_CREATION 
ANLRMS$~CTLSIZE 
ANLRMS$ ~DATAREC 
ANLRMS$_ DATABKTVBN 
ANLRMS$~DUMPHEAD ING 
ANLRMSS$~EOF , PANLAMSS, ERRORCOUNT 
ANLRMSS$_ ERROR 
inate NANLRMSS._ EXPIRATION 


HDR 

1D, ANLRMSS_FILEORG 
, ANLRMS$_GLOBALBUF S 

ANLRMS$~HEXDATA 

ANLRMS$~HE XHE ADING1 

ANLRMS$- ~HEXHE AD ING? 


ANLRM x 
ANLRMS$~ I DXAREAALLOC 
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ANLRMS$_IDXKEY 


ANLRMS$_IDXKEYAREAS 
ANLRMS$_IDXKEYBKTSZ 


ANLRMS$_IDXKEYBYTES 
ANLRMS$_IDXKEY1TYPE 
ANLRMS$~ IDXKEYDATAVBN 
ANLRMS$_IDXKEYF ILL 
ANLRMS$_IDXKEYFLAGS 
ANLRMS$~IDXKEYKEY 
ANLRMS$_IDXKEYNAM 
ANLRMS$_IDXKEYNEXT 
ANLRMS$~ IDXKEYMINREC 
ANLRMS$~IDXKEYNULL 
ANLRMS$~IDXKEYPOSS 
ANLRMS$~IDXKEYROOTLVL 
ANLRMS$~IDXKEYROOTVBN 
ANLRMS$_IDXKEYSEG 
ANLRMS$~IDXKEYSIZES 
ANLRMS$~— I DXPRIMREC 
ANLRMS$~IDXPRIMRE CFLAGS 
ANLRMS$~IDXPRIMRECID 
ANLRMS$~IDXPRIMRECLEN 


ANLRMS$_ tate ys ig 
ANLRMS$_IDXPROLOG 

ANLRMS$_ ery tM ANLRMS$_IDXRECPTR 
ANCRMSS IDXSIDR 


G 
ANLRMS$_MAXRECSIZE 
ANLRMS$_NOBACKUP 
ANLRMS$_NOEXPIRATION 
ANLRMS$_ ise 


OGVER 
RMS$"PROT, ANLRMS$_RECATTR 
ANLRMSS ong CERT 5 ALANS RECLAIMBKT 


ALR S MAR THDG 

ANLRMSS$_ ee vIC 

ANLRMS$~J ANLRMS$_AIJNL 
ANLRMSS$~ “BIL. ANLRMS$_ATJNL 
ANLRMS$— arige Ane aAss ~BADCMD 
ANLRMS$_B 

ANLRMSS$~ ~BADVON, ANLRMS$_DOWNHELP 
ANLRMS$~DOWNPATH 
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ANLRM LENAME 
ANLRMS$_FDLORG iy peters 


ANLRMS$_FDLDATARECCOMPB 
ANLRMS$_FDLDU 
ANLRMS$_FDLINDEXAREA 


MS 
ANCRNSS F 


ANERSS FOLRECL 

ANLRMS$_F DLANALKEY 
ANLRMS$~F DLDATAKEYCOMP 
ANLRMS$_ perpatanaeeo™ 


ANLRMS$_FDLDATARECS 
ANLRMS$_ pp parasr ace 
ANLRMS$~FDLDEPT 


ANLRMS$— FDLDUPSPER 
ANLRMS$_F DL IDXCOMP 
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v04-000 ANLSFDL_ANALYSIS_OF AREA = Generate ANALYSIS_OF 14-80-1986 09:38:55 ANALYZ.SRCJRMSSTATS. B32;1 . (4) 
-EXTRN ANLRMS$_BADKEYSEGVEC 
«EXTRN ANLRMS$— _BADKE YSUMMARY 
~EXTRN ANLRMS$_BADREADNOPAR 
~-EXTRN ANLRMS$_BADREADP 
-EXTRN ANLRMS$_BADSIDRDUPCT 
~-EXTRN ANLRMS$_BADSIDRPTRE IT 
eEXTRN ANLRMSS$_BADSIDRPTRSZ 
-EXTRN ANLRMS$_BADSIDRSIZE 
-EXTRN ANLRMS$_BADSTREAMEOF 
-EXTRN ANLRMS$_BADVBNF 
-EXTRN ANLRMS$_BKTL 
-EXTRN ANLRMS$_EXTENDERR 
-EXTRN ANLRMS$_FLAGERROR 
-EXTRN ANLRMS$_MISSINGBKT 
-EXTRN ANLRM S$- oh FI ane SPANERROR 
~EXTRN ANLRMSS$_ TOOMA 
~EXTRN ANLRMS$_ UN MIND ANLRMS$_VF CTOOSHORT 
~EXTRN ANLRMSS$_ CHEFULL 
-EXTRN ANLRMS$_CACHERELFAIL 
~EXTRN ANLRMSS$ 
~EXTRN ANL SFORAAT LINE 
XTRN ANLSFORMAT_SKIP 
“EX XTRN ANL$GL_ FAT, ANL$GW_PROLOG 
-PSECT S$CODE$,NOWRT,2 
003C 00000 -ENTRY ANLSFDL_ANALYSIS_OF_AREA, Save R2,R3,R4,R5 ; 0679 
7E D4 00002 CLRL - 3: 0684 
0000G CF 01 FB 00004 CALLS #1, ANLSFORMAT_SKIP s 
04 AC DD 00009 PUSHL AREA 3; 0685 
00000000G 8F DD 0000C PUSHL M#ANLRMS$_FDLANALAREA : 
7E 7C 00012 CLROQ =( 3 
0000G CF 04 FB 00014 CALLS #4, ANLSFORMAT_LINE ‘ 
0000" CF DD 00019 PUSHL RECLAIMED BLK C ; 0690 
000000006 8F DD 0001D PUSHL #ANLRMS$_ FOLRECL 3 
91 DD 00023 PUSHL #1 : 
7E D4 B00 ¢8 CLRL -(SP) 5 
0000G CF 04 FB i CALLS #4, ANLSFORMAT_LINE 3 
0050 8F 00 6E 00 2C 0002C MOVC5 #0. (SP), #0, #80, STATISTICS ACCUMULATORS ; 0694 
0000° CF 00033 : 
04 00036 RET ; 0698 


; Routine Size: 55 bytes, Routine Base: S$CODE$ + 0000 
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; 5344 1 %sbttl *ANLSFDL_ANALYSIS_OF_KEY = Generate FDL Analysis Primary’ 
19 7 i Functional Description: 
19 7 ; his routine is responsible for generating an analysis primary for 
19 7 ; an indexed file key. This routine is called after the appropriate 
20 7 : statistics have been accumulated via the statistics callback 
4 } mechanism described below. 
20 i Formal Parameters: 
20 Address of BSD describing the key. 
i Implicit Inputs: 
global data 
Implicit Outputs: 
global data 
i Returned Value: 
none 
i Side Effects: 
leis 


global routine anl$fdl_analysis_of key(key_bsd): novalue = begin 


bind 
k = .key_bsd: bsd; 
local 


kp: ref blockC, byte], 
data_bytes: long; 


! We begin with a heading which includes the key ID. 
kp = .kCbsd$t bulptrs + .kCbsd$l_offset); 


anl$format_skip( 
anl$format—line(0,0,anirms$_fdlanalkey,.kpLkey$b_keyref)); 
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! If there are no data records in this index because it is uninitialized, 
! then let's te put out a comment and quit. Otherwise we'll have a 
! lot of trouble with dividing by zero. 


if .data_rec_c eqlu 0 then ( 
anl$Tormat_line(0,1,anlrms$_fdlnorecs); 
return; 


! Now we put out the statistics for this index in alphabetical order. 
! Some items only apply to primary or secondary indices. Others only 
! apply to prologue 35. 


anl$format_line(0,1,anirms$_fdldatafill, 
; anT$percentage(.data_fill_t,.data_blk_c*512)); 
if .anl$gw_prolog eqlu plg$c_ver_3 then ( 
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04-000 ANLSFDL_ANALYSIS_OF _KEY = Generate FDL Analysis 14- Sep-1984 4 11: 4g: :02 ANALYZ. $h8Snag aesta $.B o°295, 1 . (5) 
$26 0738 7 iether Line(0,1,anlrms$ a recees-kotkey 
5 075 Spercentage( ders rec_c*.kp key$b_ keysz] = .data_comp_key_len_t,.data_rec_c*.kpLkey$b_key 
S2¢ bres 4 if -kotkey$b_ wg oqtu n° ( 
55 759 4 dat tes = aS len t = .data_rec_c*.kplkey$b_keysz]; 
256 0760 4 solstornee Line(O, TrantrnsS. fdldataréccomp, 
see 0761 4 an Spercentage(. data_bytes - .data_comp_rec_len_t,.data_bytes)); 
58 B76 3 ); 
259 076 by 
so The: seinen’ ayy : anirms$_ fdldatarecs, 
262 0766 2 ant$tornat. Unet6; i anirmss _fdldataspace, 
$e? 0767 § a_blk_c 
64 0768 ant$tornat. Uae; 71 ,antems$_ fdldepth, 
265 0769 2 
266 0770 2 if ckpLkey$b~ ebiart ine. 
267 0771 2 anl$format_line(0 fe _fdldupsper, 
268 0772 2 (.data_s idr ptr. ¢ : ~,data_rec_c/2) c 
269 0773 2 .da 3 
270 0774 2 if onl Sou w-prolog eqlu pigs. Ser x then 
271 0775 2 nie" Line(0,1,anlrims$_fdlidxcomp, ‘ 
272 0776 2 nl$percentage(. index rec_len_t - .index_comp_rec_len_t,.index_rec_len_t)); 
273 0777 2 antprernat Line(O. T,anirms$_ dlidxfi 
274 0778 2 nt $percentage(. index_fill_t,.index _blk_c*512)); 
275 0779 2 anl$format Line(0,1,anirms$_fdlidxspace, 
276 0780 2 index o); 
277 0781 2 antStormat. Ling(0. i antrns$ fdlidxlirecs, 
278 0782 2 x_tevel I 
279 0783 2 mtiorent. Line (O01 anlenss. fdldatalenmean, 
280 0784 2 -data_ res len. ff + Tdata_rec_c/2) / 
281 0785 2 a 6); 
282 0786 2 enlStornet Line 0, 1.ahirads. tdlidxlenmean 
283 0787 2 (.index_rec_len_t + .index_rec _c/e) / 
284 0788 2 .index_fec_c); 
285 0789 2 
$a th § ' Clear the statistics accumulators for the next key. 
coe 1524 § ch$fill(%x"00", Zallocation(statistics_accumulators) ,statistics_accumulators); 
290 0794 2 return; 
291 0795 2 
292 0796 1 end; 
01FC 00000 ENTRY An srt ANALYSIS_OF_KEY, Save R2,R3,R4,R5,- ; 0724 
58 0000v CF 9E 00002 MOVAB ANLSPERCENTAGE a B 5 
57 0000G CF 9E 00007 MOVAB ANLSFORMAT LINE. ; 
56 0000' CF 9€E 0000C MOVAB ~ vA REC Ce j 
50 04 AC 00 00011 MOVL 3: 0727 
52 oc AO 08 AO C1 00015 ADDL3 Bing), DRO ; 0736 
7E D4 00018 CLRL 3; 0737 
00006 cr 01 FB 00010 CALLS TANLSFORMAT SKIP ; 
E 15 A2 9A 00022 MOV ZBL a (SP) : 0738 
00000000G 8F DD 00026 PUSHL SANCRASS “FDLANALKEY ; 
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4 99 12:49 AX-11 Bliss-32 V Vee On 23s 
4 11:53:02 ANALYZeS Rese MSSTATS.B32;1 
CLRO -(SP) 

CALLS #4 ANL SFORMAT LINE 

TSTL DATA_REC_C 

BNEQ 

PUSHL #ANLRMS$_FDLNORECS 

PUSHL #1 

CLRL -(SP) 

CALLS #3, ANLSFORMAT_LINE 

ASHL #9, DATA_BLK_C, -(SP) 

PUSHL DATA_FIL 

CALLS #2, ANLSPERCENTAGE 

PUSHL 

PUSHL #ANLRMS$_FDLDATAFILL 

PUSHL #1 

CLRL -(SP) 

CALLS #4, ANLS$FORMAT_LINE 

CMPW ANL$GW_PROLOG, #3 

BNEQ 

MOVZBL 20(K RO 

MULL2 SATAT PREC _C. RO 

PUSH p 

SUBL DATA_COMP_KEY_LEN_T, RO, =(SP) 
CALLS #2, ANLSPERCENTAGE 

PUSHL RO 

PUSHL #ANLRMS$_FDLDATAKEYCOMP 

PUSHL #1 

CLRL -(SP) 

CALLS 4&4, ANLSFORMAT_LINE 

TSTB 21(KP 

BNEQ 2$ 

MOVZBL 20(KP) 

MULL2 DATA_REC Re R RO 

SUBL3 RO. BATAR REC_LEN_T, DATA_BYTES 
PUSHL DATA_BYTES 

SUBL3 DATA_COMP_REC_LEN_T, DATA_BYTES, 
CALLS #2, ANLSPERCENTAGE 

PUSHL #ANLRMS$_FDLDATARECCOMP 

PUSHL #1 

CLRL -(SP) 

CALLS #4, ANLSFORMAT_LINE 

PUSHL DATA_REC_ 

PUSHL #ANLRMS$"FDLDATARECS 

PUSHL #1 

CLRL -(SP) 

CALLS #4 A SF ORAT _LINE = 
PUSHL DA . 
PUSHL PANLRRSS~ F DLDATASPACE 

PUSHL #1 

CLRL -(SP) 

CALLS #4, ANLSFORMAT_LINE 

USHL MAX_DEPTH 

PUSHL #ANCRMS$_FDLDEPTH 

PUSHL #1 

CLRL -(SP) 

CALLS #4, ANLSFORMAT_LINE 
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, V04=000 ANLSFDL_ANALYSIS_OF_KEY = Eonerate FDL Analysis a ae 11: 1g: :02 ANALYZ.SRCIR Ries Y ATS 09951 . (5) 
15 A2 95 000DD TSTB 1(KP) ; 0770 
1B 3 BO0eD BEQL ss ; 
50 66 02 C7? QO0E2 DIVL3 #2, DATA_REC_C ; 0772 
50 10 A6 CO OO0E6 ADDL ¢ DATA_SIDR_PTR_C, RRo : 
| 50 66 C6 OOOEA DIVL DATAT REC_C, RO : 0773 
FF AO 9F QOOED PUSHAB Ont ) : 
| 00000000G 8F DD OOOFO PUSHL #ANLRMS$_FDLDUPSPER 3; 0771 
01 DD OOOF6 PUSHL #1 : 
7E D4 000F8 CLRL -(SP) ; 
67 04 FB OOOFA CALLS #4, ANLS$FORMAT_LINE : 
03 0000G CF B81 OOOFD 3$: CMPW ANLSGW PROLOG, #3 3; 0774 
1B 12 00102 BNEQ 4$ ; 
24 AB DD 00104 PUSH INDEX_REC_LEN 3 0776 
7E 24 «AG 28 «=A6 C3 00107 SUBL INDEX “COMP _ Rt. LEN_T, INDEX_REC_LEN_T, : 
| 68 02 FB 0010D CALLS ye ANLSPERCENTAGE 3 
50 DD 00110 PUSHL R 3 
00000000G 8F DD 00112 PUSHL #ANLRMS$_FDLIDXCOMP : 0775 
01 DD 00118 PUSHL #1 : 
7E D4 OO1IA CLRL -(SP) 3 
67 04 FB 0011C CALLS #4, ANLSFORMAT_LINE : 
7E 14 A6 09 78 OO11F 4$: ASHL #9. INDEX BLK Ct, =-(SP) ; 0778 
18 A6 DD 00124 PUSHL INDEX_FIL ; 
68 02 FB 00127 CALLS #2, ANL SPERCENTAGE : 
| 50 DD 0012A PUSHL R : 
000000006 8F DD O014¢ PUSHL #ANLRMS$_FDLIDXFILL : 0777 
01 DD 00132 PUSHL #1 3 
7E D4 00134 CLRL -(SP) 3 
67 04 FB 00136 CALLS #4, ANL SFORMAT _LINE 3 
14 Ab DD 00139 PUSHL INDEX : 0780 
| 000000006 8F DD 0013¢ PUSHL PANLRASS. FDLIDXSPACE : 0779 
01 DD 00142 PUSHL #1 § 
7E D4 00144 CLRL -(SP) 3 
67 04 FB 00146 CALLS 4&4, AML SPORRAT LINE ; 
20 Ab DD 00149 PUSHL INDEX_L : 0782 
00000000G 8F DD 0014C PUSHL PANEARSS ES TDXLTRECS 3 0781 
01 DD 00152 PUSHL #1 3 
7E D4 00154 CLRL -(SP) 3 
67 04 FB 00156 CALLS #4, ANLSFORMAT_LINE 3 
50 66 02 C7 00159 DIVL3 #2. DATA_REC_C7> RO : 0784 
50 04 A6 CO 0015D ADDL2 DATA -RECILEN T, RO ; 
7E 50 66 C7 00161 DIVL DATA C, RO, -(SP) ; 0785 
00000000G 8F DD 00165 PUSHL PANLRNSS F DLDATALENMEAN ; 0783 
1 DD 00168 PUSHL #1 $ 
E D4 0016D CLRL -(SP) : 
67 04 FB 0016F CALL #4, ANLSFORMAT_LINE 3 
| 50 1c Ab 02 C 901 7¢ DIVL #2, INDEX_REC a RO : 0787 
50 24 Ab CO 0017 ADDL INDEX_REC"LEN-T, RO § 
7E 50 1¢ A6 C7 00178 DIVL INDEX"REC~C, RO, (SP) : 0788 
00000000G 8F DD 00180 PUSHL #ANLRAS$ FOC IDXLENME AN 3; 0786 
01 DD 00186 PUSHL #1 3 
7E D4 00188 CLRL -(SP) : 
67 04 FB OO18A CALLS #4, ANLSFORRAT bine 3 
0050 =s BF 00 6E ne 00 2c 30180 MOVES #0. (SP), #0, #80, STATISTICS_ACCUMULATORS ; 0792 
| 04 00196 RET : 0796 
| 


Sod ad 


e and Report File Statis 
KEY = Generate FDL Anal 


Huw 


_RMSSTATS 
/V04=000 


407 bytes, Routine Base: S$CODE$ + 0037 


|; Routine Size: 


B 6 
RMSSTATS RMSSTATS = Calculate and Report File Statistics 16-Sep-1984 00: 16:43 VAX-11 Bliss=32 Yh On 038 
~v06-000 ANLSAREA_STATISTICS = Print Statistics for Area 14-Sep-1984 11:53:02 CANALYZ.SRCJRMSSTATS.B32;1 


Bee Se we Be Be Fe Ge Fe Se Be Fe Se Os Se Bs Be Bs Oe oe BH Se Oe Oe Oe Os Oe Be Oe Oe Se Os Oe Se Os Oe Oe Oe oe SeGe Ge Ge Se eeee 


294 QO797 1 Xsbttl "ANLSAREA_STATISTICS = Print Statistics for Area’ 
295 0798 1 S++ E 
296 0799 1 ! Functional Description: : 
297 0800 1! This routine is called during /STATISTICS mode to print the 
298 0801 1! Statistics for an indexed file area. We are called after the 
299 tg 1! appropriate statistics have been accumulated via the statistics 
300 0 1; callback mechanism described below. 
301 0804 1! 
302 0805 1 ! Formal Parameters: . 
303 0806 1! area_id The ID of this area. 
304 0807 1! a. 
305 0808 1 ! Implicit Inputs: 
306 0809 1! global data 
307 0810 1! ai 
308 0811 1! Implicit Outputs: 
309 0812 1! global data 
310 0813 1! 
311 0814 1 ! Returned Value: 
312 0815 1! 
313 ae FT: 
314 0817 1°! Side Effects: 
315 0818 1! 
316 0819 1 !-- 
317 0820 1 
318 0821 1 
319 0822 2 global routine anl$area_statistics(area_id): novalue = begin 
320 0823 2 
321 0824 2 
322 0825 2 ! We begin with a heading which includes the area ID. 
323 0826 2 ; 
324 0827 2 ant$format_skip(0); 
325 0828 2 anl$format_Line(0,0,anirms$_statarea,.area_id); 
326 0829 2 anl$format_skip(0); 
327 0830 2 : 
328 0831 2 ! Now we put out the statistic that says how many blocks worth of 
329 0832 2 ! reclaimed space there is. 
330 0833 2 ‘ : 
$35 baee § anl$format_line(0,1,anlrms$_statrecl,.reclaimed_blk_c); 
$37 sty § ! Clear the statistics accumulators for the next area. 
$32 $44 § ch$fill(%x"00", Zallocation(statistics_accumulators),statistics_accumulators); 
337 0840 2 return; 
338 0841 2 
339 0842 1 end; 
003C 00000 ENTRY ANLSAREA_STATISTICS, Save R2,R3,R4,R5 
7E 04 00002 CLRL - 
0000G CF 01 FB 00004 CALLS #1, ANLSFORMAT_SKIP 
04 AC DD 00009 PUSHL AR 
000000006 et bo 0000C PUSHL M#ANLRMS$_STATAREA 
E /7C 00012 CLRQ -(SP) 


SS SSS SSS SSS 
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00006 CF 04 FB 00014 CALLS #4, ANLSFORMAT_LINE ‘ é 
7E D4 00019 CLRL. = ; 0829 
00006 CF 01 FB 0001B CALLS #1, ANL$FORMAT_SKIP ; 
0000" CF dD 00020 PUSHL RECLAIMED BLK_C ; 0834 
000000006 8F DD 00024 PUSHL #ANLRMS$_STATRECL : 
01 DD O002A PUSHL #1 F 
7E D4 0002C CLRL -(SP) : 
0000G CF 04 FB O002E CALLS #4, ANLSFORMAT_LINE : 
6E 00 2C 00033 MOVCS #0, (SP), #0, #80, STATISTICS_ACCUMULATORS ; 0838 
0000" CF 0003A : 
04 00030 RET ; 0842 
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Rsbttl "ANLSKEY_STATISTICS = Print Statistics for a Key 


Functional Description: : 3 
This routine is called during /STATISTICS mode to print the 
Statistics for an indexed file key. We are called after the. 
appropriate statistics have been accumuiated via the statistics 
callback mechanism described below. 


Formal Parameters: 
key_bsd Address of BSD describing the key. 


Implicit Inputs: 
global data 


! Implicit Outputs: 
global data 


Returned Value: 


Side Effects: 


global routine anl$key_statistics(key_bsd): novalue = begin 


bind 
k = .key_bsd: bsd; 


local 
kp: ref block(,byteJ, 
data_bytes: long; 


! We begin with a heading which includes the key ID. 


kp = .kCbsd$l bufptrd + .kCbsd$l_offset); 
anl$format_skip(0); 
anl$format_line(0,0,anirms$_statkey,.kplkey$b_keyref]); 
anl$format_skip(0); 


! If there are no data records in this index because it is uninitialized, 


! then Let's just put out a comment and quit. Otherwise we'll have a 
' Lot of trouble with dividing by zero. 


if .data_rec.c eqlu 0 then ( 
anl$Tormat_line(0,1,anlrms$_falnorecs); 
) return; 


! Now we put out the statistics for the index levels in a logical order. 
! Some values only make sense for prologue 3. 


anl$format_line(0,1,anirms$_statdepth, 
-max_ depth); , 
anl$format_line(0,1,anirms$_statidxlirecs, 
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SST 


3 1 
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- index_levell_rec 


anl$format Line 
. index, 


eechiations Neo 


ant$format linet 
perc 


0, fs antenss Statidxlenmean 

rec_len_t +-.index_rec me/ 25 / 
index _Frec_c); 

6,1 TantrmsS, _statidxspace, 


0, Toantrms$_ statidxfill, 
entage(. index_fill _t,. index blk c*512)); 


if ant sgn rolog eqlu pig$c_ ver_3 then 
Ustorast MN -1,anlrms$_statidxcomp, 


: Now we put out 
i Some statistic 


TSpercentage(.index_rec_len_t - .index_comp_rec_len_t,.index_rec_len_t)); 


the statistics for the data records in a logical order. 
s only make sense for ate or secondary indices. 


' Others make sense only for prologue 


anl$format_skip( 
anl$format_ Sag 4 


0) 
0, ra statdatarecs, 


.dat 
if -kptkey$b skeyréf inegu 0 
anl$Fformat_line(0,1 pm _Statdupsper, 


anl$format_Lline( 


date sidr Ptr. c/ - 
a a 
0.1 oni fass” “statdatalenmean, 


(.data_ rec. len. = + jane rec_c/2) / 


anl$format_ oy 


a 
anl$format line ( 
anT$perc 


6, i canlrmss _Statdataspace, 


0; i, oniras$_ eyerfecet ttt. 
entage(. data_fill t, .data_ blk_c*512)); 


if .anl$qw_prolog eqlu plo$c-ver_3 th 
: ntStormat tinetOol antris$. st statdatake 


com 
antSpercentage dass ros oi kptkeysb_ keysz] - .data_comp_key_len_t,.data_rec_c*.kplkey$b_key 


if -kpCkey$b- porters 


); 
os 


e 
data_bytes = “data, A. “ten t - .data_rec_c*.kplkey$b_keysz]; 
anl$format_lLine(0,T, anUrms$_statdatareccomp, 
anT$percentage(. data_bytes - .data_comp_rec_len_t,.data_bytes)); 


! If this is the primary key, then print an indication of the overall 
i space efficiency. 


gat OFernet skip(0); 
if .kpl key$b keyref] eqlu 0 then 
nl$Tormat_line(0,1,anirms$_statefficiency 


anl$percentage(. data_rec_len “t,.an($gl_fat(fat$l_hiblk]#512)); 


' Clear the statistics accumulators for the next key. 


ch$fill(%x'00', 
return; 


end; 


Zallocation(statistics_accumulators) ,statistics_accumulators); 
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v04-000 ANLSKEY_STATISTICS = Print Statistics for a Key ae 11: 39°63 ANALYZ.SRCIRMSSTATS.B32;1 ” (3 
03FC 00000 -ENTRY am suey STATISTICS, Save R2,R3,R4,R5,R6,R7,-°; 0868 
59 Q0000G CF 9E 00006 MOVAB ANLSFORMAT SKIP, R9 : 
58 0000v CF 9€E 000 MOVAB ANLSPERCENTAGE, R8 : 
57 0000G CF 9E 0000C MOVAB ANLSFOR RWAT LINE, R? : 
56 0000" CF 4 00011 MOVAB Uy REC_C, R6 : 
50 04 AC 00 00016 MOVL Y_ BSD ; 0871 
52 0c Ad 08 AO C1 OO01A ADDL3 BIRO): PF OtRO), + 0880 
7E D4 00 CLRL =(SP) ; 0881 
69 01 FB 000 CALLS #1, ANLSFORMAT SKIP : 
7E 15 A2 9A 000 MOVZBL 21(KP), =(SP 3 0882 
00000000G 8F DD 00029 PUSHL #ANLRMSS_ ST ATKEY : 
— fr CH CLROQ -(SP) : 
67 04 FB 444 1 CALLS a4, ANLSFORMAT_LINE $ 
7E D4 00034 CLRL ; 0883 
69 01 FB 00036 CALLS Aan, SF RTA, SKIP : 
66 D5 00039 TSTL Dafa. > 0889 
OE 12 00038 BNEQ 1$ 3 
00000000G 8F DD 0003D PUSHL Shea anss. FDLNORECS ; 0890 
01 DD 00043 PUSHL #1 : 
7E D4 00045 CLRL -(SP) 3 
67 03 FB 00047 CALLS #3, ANLSFORMAT_LINE ; 
04 0004A RET : 0889 
2C AB DD 00048 1$: PUSHL MAX ; 0898 
00000000G 8F DD OO04E PUSHL PANCRESS. STATDEPTH ; 0897 
01 DD 00054 PUSHL #1 : 
7E D4 00056 CLRL -(SP) : 
67 04 FB 00058 CALLS #4, ANLSFORMAT_LINE : 
20 Ab DD 0005B PUSHL  INDEX_LEVEL1_REC ; 0900 
00000000G 8F DD 000S5E PUSHL M#ANLRASS$_STATIDXCIRECS : 0899 
01 DD 00064 PUSHL #1 3 
7E D4 00066 CLRL -(SP) : 
67 04 FB 00068 CALL #4, ANLSFORMAT_LINE 3 
50 1c Ab 02 Cc? 00068 DIVL #2, INDEX_REC_C, RO ; 0902 
50 24 Ab CO 00070 ADDL INDEX_REC_LEN-T, RO ; 
7E 50 1¢ A6 C7 00074 DIVL INDEX~RE RO, -(SP) ; 0903 
00000000G 8F DD ta PUSHL #ANLRASS_ STATIDKLENMEAN ; 0901 
01 DD 0007F PUSHL #1 : 
7E D4 00081 CLRL -(SP) : 
67 04 FB 00083 CALLS #4, ANLSFORMAT_LINE 3 
14 Ab DD 00086 PUSHL INDEX ; 0905 
00000000G 8F DD 00089 PUSHL PANLRASS _STATIDXSPACE : 0904 
01 DD 0008F PUSHL #1 3 
7E 04 00091 CLRL -(SP) : 
67 04 FB 00093 CALLS #4, ANLSFORMAT_LINE 3 
7E 146 Ab 09 78 00096 ASHL "9. INDEX BLK_C, -(SP) : 0907 
18 A6 DD 00098 PUSHL INDEX FIL 5 
68 2 FB O009E CALLS #2, ARL SPERCENTAGE 3 
0 DD OO0AI PUSHL : 
00000000G 8F DD O00A3 PUSHL M#ANLRMS$_STATIDXFILL : 0906 
1 DD 000A9 PUSHL #1 : 
E D4 OO0AB CLRL -(SP) : 
67 04 FB OOOAD CALLS #4, ANLSFORMAT_LINE ; 
03 0000G CF 81 00080 CMPW ANL $GW_ PROLOG, #3 : 0908 
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1B 12 00085 BNEQ 2s : 
3 A6 Dp 0087 PUSH INDEX_REC_LEN_T ; 0910 
7E 24 «6 8 A6 C3 OO0BA SUBL INDEX-COMP_RET_LEN_T, INDEX_REC_LEN_T, = 3 
68 02 FB 000C CALLS #2, ANLSPERCENTAGE ; 
50 oD 000C PUSHL ; 
000000006 8F DD 000C PUSHL #ANLRMS$_STATIDXCOMP 3 0909 
01 DD 000CB PUSHL #1 : 
7E D4 000CD CLRL. = = (SP) : 
67 04 FB OOOCF CALLS #4, ANLSFORMAT_LINE : 
7E D4 000D2 2$: CLRL -(SP) : 0916 
69 01 FB 90004 CALLS #1, ANLSFORMAT_SKIP : 
66 DD 00007 PUSHL DATA _REC_ : 0918 
000000006 8F DD 00009 PUSHL M#ANLRMSS$"STATDATARECS : 0917 
01 DD 000DF PUSHL #1 : 
7E 04 000€1 CLRL = = (SP) ; 
67 04 FB O00E3 CALLS #4, ANLSFORMAT_LINE : 
15 A2 95 O00E6 TSTB 1 (KP) 3 0919 
15 13 OO0E BEQL $ é 
50 10 A6 66 C7 OQOOEB DIVL3§ DATA_REC_C, DATA_SIDR_PTR_C, RO : 0922 
FF AO 9F QOOFO PUSHAB =-1(R : 
00000000G 8F DD O00F3 PUSHL #ANLRMS$_STATDUPSPER : 0920 
01 DD O00F9 PUSHL #1 : 
7E 04 OO0FB CLRL = = (SP) ; 
67 04 FB OOOFD CALLS #4, ANLSFORMAT_LINE : 
50 66 02 C7 00100 3$: DIVL3 #2, DATA_REC_C> RO 3 0924 
50 04 AB CO 00104 ADDL2 DATA_REC“LEN-T, RO ; 
7E 50 66 C7 00108 DIVL DATA_REC_C, RO, -(SP) : 0925 
000000006 8F DD 0010C PUSHL #ANLRMS$S~STATDATALENMEAN > 0923 
01 DD 00112 PUSHL #1 ; 
7E D4 00114 CLRL -(SP) ’ 
67 04 FB 00116 CALLS #4, ANLSFORMAT_LINE ; 
F8 A6 DD 00119 PUSHL DATA_BLK_ : 0927 
00000000G 8F DD O01IC PUSHL #ANLRMS$~STATDATASPACE ; 0926 
01 OD 00122 PUSHL #1 3 
7E 04 00124 CLRL = = (SP) : 
67 04 FB 00126 CALLS #4, ANLS$FORMAT_LINE ; 
7E FB =A 09 78 00129 ASHL #9, DATA_BLK_C> -(SP) ; 0929 
FC AB DD OO12E PUSHL DATA_FILC_T ; 
68 02 FB 00131 CALLS #2, ANLSPERCENTAGE : 
50 DD 00134 PUSHL 3 
00000000G 8F DD 00136 PUSHL M#ANLRMSS$_STATDATAF ILL : 0928 
01 DD 0013C PUSHL #1 ’ 
7E D4 0013E CLRL = = (SP) ; 
67 04 FB 00140 CALLS #4, ANLSFORMAT_LINE ; 
03 00006 CF 81 00143 CMPW  § ANLS$GW_PROLOG, #3 ; 0930 
4A 12 00148 BNEQ 4 3 
50 14 A2 9A OOI4A MOVZBL 20(KP), RO : 0932 
50 66 C4 O014E MULL2 DATA_REC_C, RO ; 
50 DD 00151 PUSH RO $ 
7E 50 08 Aé C3 00153 SUBL3 DATA_COMP_KEY_LEN_T, RO, -(SP) : 
68 02 FB 00158 CALLS #2, ANLSPERCENTAGE 3 
50 oD 00158 PUSHL 3 
000000006 8F DD 0015D PUSHL #ANLRMS$_STATDATAKEYCOMP ; 0931 
01 DD 00163 PUSHL #1 : 
7E D4 00165 CLRL (SP) ; 
67 04 FB 00167 CALLS #4, ANLSFORMAT_LINE : 
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v04-000 ANLSKEY_STATISTICS = Print Statistics for a Key e280 1382 1 4g: :02 ANALYZ.SRCJRMSSTATS.832;1 . (3 
15 A2 95 OO16A TSTB 21(KP) : 0933 
sg 73 wits Q 4$ : 
50 14 A2 9A at MOVZBL 20(KP) a: 3; 0934 
50 6 C4 00173 LL2 DATA_REC : 
50 04 Ab 0 C3 00176 SUBL3 RO paren REC RO EN. T, DATA_BYTES : 
0 bp 0178 PUSHL DATA_BYTES : 0936 
7E 50 0c Ab C3 0017D SUBL DATAT COMP_REC_LEN_T, DATA_BYTES, =(SP) : 
68 O¢ FB HET CALLS » ANLSPERCERTAGE 3 
DD 9018 PUSHL : 
000000006 8F DD 00187 PUSHL #ANLRMS$_STATDATARECCOMP : 0935 
01 ODD 0018D PUSHL #1 3 
7E 4 0018 CLRL -(SP) : 
67 04 FB 00191 CALLS #4, ANLSFORMAT_LINE : 
7E D4 00194 4$: CLRL - 3 0943 
69 01 FB 00196 CALLS #1, ANLSFORMAT_ SKIP : 
| 15 A2 95 00199 TST 21(KP 3 0944 
1F 12 0019C BNEQ : 
50 00006 CF 00 00196 MOVL ANLSGL OF » RO : 0946 
| 7E 046 Ad 09 78 OO1A ASHL giro). *=(SP) : 
04 A6 DD 001A8 PUSHL fafa REC_LEN ; 
68 02 FB 001AB CALLS #2, ENE SPERCENTAGE 3 
50 DD OO1AE PUSHL R : 
000000006 8F DD 00180 PUSHL #ANLRMS$_STATEFFICIENCY + 0945 
01 DD 001B6 PUSHL a" 3 
7E 04 00188 CLRL (SP) : 
67 04 FB OO1BA CALLS #4, ANLSFORMAT_LINE ; 
0050 = BF 00 6E os 00 2c 90180 5$: MOVCS #0, (SP), #0, #80, STATISTICS_ACCUMULATORS ; 0950 
001C6 RET + 0954 


| 04 
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_ v04-000 ANLSPERCENTAGE = Calculate a Percentage 4- Sep-1 3be § $2383 02 ANALYZ. SRC] RMSSTATS. 633; 37 a 8 

; té 9322 } Rsbttl "ANLSPERCENTAGE = Calculate a Percentage’ 

: 656 9989 1 ' Functional Description: 

: te b3ee : } This routine is called to calculate a percentage. 

; 459 0960 1 i Formal Parameters: 

; 460 349 '? dividend The dividend in the percentage. 

; red BoeG : divisor The divisor in the percentage. 

; 488 $4¢: : inp licts Inputs: 

465 0966 1: ree an 

; 466 096/ 1! Implicit Outputs: 

; ret Sees : global data 

: 469 0970 1 ! Returned Value: 

: ony oor) : The percentage. 

3 47e 0973 i Side Effects: 

> 474 0975 1 in 

> 475 0976 1 

: 4? 0977 #1 

; rth 3444 ; global routine anl$percentage(dividend,divisor) = begin 

: 479 0980 2 local 

: 480 096: 2 quadword: block(8,bytel, ; 

: rH 44:04 § quotient: signed long, remainder: signed long; 

: 483 0 2 builtin 

3 Pe 1 84 $4 § emul, ediv; 

: 486 0987 2 

: rt +4 4444 § ! If the divisor is zero, then just return zero. 

: 489 0990 ; if -divisor eqlu 0 then 

3 return 0; 

s 4691 0992 2 ¥ 

; $36 34d, 7 ! Calculate the percentage using quadword arithmetic. 

5 49% 0995 2 emul (dividend, %ref (100) ,%ref(0) ,quadword) ; 

3 _ 445} $ ediv(divisor,quadword, quotient, remainder): 

: $35 3398 3 return .quotient; 

> 499 1000 1 end; 


0000 00000 -ENTRY ANLSPERCENTAGE, Save nothing ; 0978 
5E 08 C2 00002 SUBL2 = #8, ‘ 
08 Ac 3 00005 TSTL DIVI ; 0990 
14 13 00008 BEQL 1$ ; 
6E 00 00000064 = =8F 04 AC 7A QOOOA EMUL DIVIDEND, #100, #0, QUADWORD ; 0995 
50 51 6€ 08 AC 7B 00014 EDIV DIVISOR, QUADWORD, QUOTIENT, REMAINDER : 0996 
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STATISTICS CALLBACK ROUTINES 


The method by which we collect the statistics for an RMS file is known 
as Statistics callback routines. These are routines in this module 
which are ‘‘called back’’ by the various low-level structure analysis 
routines. The analysis routines pass enough information so that the 

ned pay routines can ees go _- statistical information. After the 
an at rete is finished, of t atistics formatting routines 
(ANLSSTATISTICS PDL or ONL SSTATIST Tg MODE) can calculate the final 
statistics and format them. 


2 V4.0-7 Page 25 
SSTATS 830; 1 ae 5) 


When an evel ysis routine wants to call back a statistics routine, it 
uses the STATISTICS_CALLBACK macro. This macro — an arbitrary 
number of statements as its argument, and causes m to be executed 
only if the current mode does statistics (/FDL or mS TATISTICE)” 
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—V04-000 ANLSBUCKET_CALLBACK = Statistics Callback for B 14-Sep-1984 11 ANALYZ.SRCIRMSSTATS.B32;1 (10) 
517 1916 1 Zsbttl ‘ANLSBUCKET_CALLBACK = Statistics Callback for Buckets‘ 
518 err 6} 4 : : 
519 1018 1°! Functional Description: | 
520 1019 1! This is the statistics callback routine for the analysis of a bucket. 
es) ee : We keep track of information about the buckets. 
358 1092 1 ! Formal Parameters: 
524 1025 1! Level The level of this bucket. 
525 Ise = blocks Number of blocks in the bucket. 
526 1025 1! fill Fill count for this bucket. 
527 1026 1! re 
528 195% 1! Implicit Inputs: 
529 1028 1! global data 
530 1029 1! pn 
531 1030 1 ! Implicit Outputs: 
532 1031 1! global data 
535 1032 1! 
534 1033 1 ! Returned Value: 
535 1034 1! none 
536 on 27 
537 1036 1 ! Side Effects: 
538 1037 1! 
539 1038 1 !-- 
540 1039 1 
541 1040 1 
248 Hd ¢ global routine anl$bucket_callback(level, blocks, fill): novalue = begin 
544 1043 2 
545 1044 2 ! We need to keep track of the space occupied and the data fill count. 
546 1045 2 ! It's done separately for data and index. 
547 1046 2 
548 1047 3 if .level eqlu 0 then ( 
549 1048 3 data_blk.c = .data_blk_c + .blocks; 
550 1049 3 data_fill_t = .data_fill_t + .fill; 
551 1050 3) else ( : 
552 1051 3 index_blk_c = .index_blk_c + .blocks; 
553 1052 3 index_filT_t = .index_fiTl_t + .fill; 
554 1053 2); 
555 1054 2 
556 1055 2 return; 
557 1056 2 
558 1057 1 end; 
0000 00000 ENTRY ANLSBUCKET_CALLBACK, Save nothing : 1041 
04 aC 05 00002 TSTL LEVEL : 1047 
OD 12 eet BNEQ 1$ : 
0000° CF 08 aC CO 0000 ADDL2 BLOCKS, DATA_BLK_C : 1048 
0000" CF Oc aC CO 0000D ADDL2 FILL, DATA_FILL_T : 1049 
04 00015 RET : 1047 
0000° CF 08 AC CO 00014 1$ ADDL BLOCKS, INDEX_BLK_C 3 12) 
0000" CF OC AC CO OO01A ADDL2 FILL, INDEX_FILL_T > 1052 
04 00020 RET : 1057 
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04-000 ANLSRECLAIMED_BUCKET_CALLBACK = Statistics Call 14-Sep-1984 11:53:02 ANALYZ.SRCIJRMSSTATS.B32;1 (11) 
; 260 1938 } Rsbttl *ANLSRECLAIMED_BUCKET_CALLBACK = Statistics Callback for Reclaimed’ 
> 36 1060 1 ! Functional Description: — : 
> 36 1061 1! This is the statistics callback routine for reclaimed buckets 
> 564 1006 1! hanging off an area descriptor. 
3 6365 1063 1! 
> 566 1064 1 ! Formal Parameters: } 
>; 567 1065 1! ocks Number of blocks in the bucket. 
> 568 1066 1! i 
; 569 1067 1°! Implicit Inputs: 
; 370 1068 1! global data 
; Ory 1069 1! a 
: fe 1070 1°! Implicit Outputs: 
; Of 1071 1! global data 
> «574 1072 1! 
; of 1073 1 ! Returned Value: 
s 636 1074 1! none 
; ore it Be ER Bee 
; 578 1076 1! Side Effects: 
; oY 1077 1! 
> $80 1078 1 !-- 
> 581 1079 1 
; 582 1080 1 ‘ 
3s 383 1081 2 global routine anl$reclaimed_bucket_callback(blocks): novalue = begin 
3: «584 1082 2 
3 385 1083 2 : 
$ 258 eRe § ! All we need to do is keep track of the number of reclaimed blocks. 
; 588 1086 2 reclaimed_blk_c = .reclaimed_blk_c + .blocks; 
s Sop 1087 2 
; 590 1088 2 return; 
; Sl 1089 2 
s 392 1090 1 end; 
0000 00000 -ENTRY ANLSRECLAIMEv_ BUCKET CALLBACK, Save nothing ; 1081 
0000° CF 04 AC 4 tit apeee BLOCKS, RECLATMED_BLR_C : ieee 


; Routine Size: 
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04-000 ANLSINDEX_CALLBACK = Statistics Callback for in lecsene19B4 f$yi58i62 | LaMar d2ecaeSanestat age 43} 


23¢ 1994 : rates *ANLSINDEX_CALLBACK = Statistics Callback for Index Record’ 
596 1998 1 i Functional Description: 

597 1094 1: This is the statistics callback routine for an index record. We 
4: 1932 : accumulate various information about the index. 

600 1097 1 |! Formal Parameters: 

601 1098 1! Level Level of the index bucket. 

602 1099 1 record_len Nominal Length of the entire index record. 
ait viet : compressed_len Compressed [ength of the entire index record. 
605 1108 1! Implicit Inputs: 

eee pene Pel 

608 1105 1 ! Implicit Outputs: 

oy 1158 | ; global data 

e153 1108 : Returned Value: 

613 1110 1! 

ei Wis : & Side Effects: 

616 1113 1 I+ 

617 1114 «1 

618 1115 1 

ah HE $ global routine anl$index_callback(level,record_len,compressed_len): novalue = begin 
621 1118 2 

oce 1130 § ! Count this index record. Keep a separate count of level 1 records. 
624 1121 2 increment (index_rec_c); 

625 1122 2 if «level eqlu 1° then 

666 aT § increment (index_levell_rec_c); 

628 1125 2 ! We have to keep track - the total nominal record length, and the total 
334 1156 .* i compressed record length 

631 1128 2 index_rec_len_t = .index_rec_len_t + .record_len; 

O36 1165 § index_comp_rec_len_t = . index _comp_rec_ lent + .compressed_ len; 

ox M3! 3 ! Now we must keep track of the maximum index depth. 

$36 ta § max_depth = maxu(.max_depth,.level); 

638 1135 2 return; 

639 1136 2 

640 1137 1 end; 


0004 00000 ENTRY ANLSINDEX CALLBACK, Save R2 : 1116 
52 0000" CF 96 0000 MOVAB MAX : 
FO A2 D6 0000 INCL —_ INDEX =REC > 1121 
01 04 AC D1 OO00A CMPL LEVEL? > 1122 
03 12 0000E BNEQ : 
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DO 0001D 
D1 00020 
1€ tier 
DO 00026 
DO BR 0sh 
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INDEX_LEVEL1_REC_C 

RECORB_LEN, INDEX _REC_LEN 

COMPRESSED. ULEN, INDEX~ COMP. REC_LEN_T 
MAX_DEPTH, RO 
RO, LEVEL 
LEVEL, RO 

RO, MAX_DEPTH 


1137 


RMSSTATS RMSSTATS = Calculate and Report File Statistics 16-Sep-1984 VAX-11 Bliss-32 V4.0-74 Page 31 
v04-000 ANLSDATA_CALLBACK = Statistics Callback for Dat 1B-Se0-1984 00:4 :5 ‘43 LANALYZ SREIRMGSTA TATS.B32;1 . a) 
; o 1138 ! — "ANLSDATA_CALLBACK = Statistics Callback for Data Records’ 

> 644 1140 1! Functional Description: 

; 645 1141 1: his is the statistics callback routine for data records. We 

; ong 1108 : accumulate various information about the records. 
3 648 1144 1 | Formal Parameters: 

3 649 1145 1! record_len Nominal Length of this Rw. record, 

; 650 1146 1! compressed_key_len Compressed length of the key. 

3; 651 1147 1: compressed_data_len Compressed Length of the data bytes. 
a $26 ites : sidr_pointers Count of pointers in this SIDR. 
t 654 1150 1: Implicit Inputs: 
3 $23 132) : global data 

: 657 1188 1 i Implicit Outputs: 
a $28 1120 : global data 
ls roe 1128 : Returned Value: 

: 662 1158 1: 
13 ot Hizs : i: Side Effects: 

: 665 1161 1 i+ 
13 666 1162 1 

: 667 1163 1 j 
ls rte 4 He $ global routine anl$data_callback(record_len,compressed_key_len,compressed_data_len,sidr_pointers): novalue = 
: 670 1166 2 

s or 8 2 § ! Count this data record. 

: 675 1169 : increment (data_rec_c); 

> 675 1171 2 ! Keep track of the total nominal record length, total compressed key length, 
3 676 1178 2 ! and total compressed data length. 

: 678 1174 $ data_rec_len_t = .data_rec_len_t + .record_len; 

3; 679 1175 2 data_comp_key_len_t = Tdata_comp_ key_ lLen_t™¢ .compressed_ key_len; 

: one A § data_comp_rec_len_t = .data_comp_rec_len_t + .compressed_data_len; 

: on 1178 § ! For secondary data, keep track of the total number of SIDR pointers. 

: ost t+ 2 data_sidr_ptr_c = .data_sidr_ptr_c + .sidr_pointers; 

: 686 1182 $ return; 

3; 687 1183 2 

; 688 1184 1 end; 


0004 00000 ENTRY A, SDATA. CALLBACK, Save R2 > 1164 
52 0000" CF 9E 90006 MOVAB DATA_REC“C, R2 3 
62 d8 0000 INCL BATA SD c“C 3; 1169 
04 A2 04 aC CO 00009 ADDL RECORD_LEN, DATA_R NT : 1174 
08 A2 08 AC CO OOO0E ADDL COMPRESSED UKEY vteNe “SATAT COMP_KEY_LEN_T > 1175 


7 
RMSSTATS RMSSTATS = Calculate and Report File Statistics 16-Sep-19 4 90: 16:83 Pan | Bliss-32 V4.0-74 
v04-000 ANLSDATA_CALLBACK = Statistics Callback for Dat 14-Sep-1984 11:55:02 ANALYZ.SRC JRMSSTATS.B32;1 
0c Ag 0c AC CO 00013 ADD COMPRESSED _DATA_LEN, DATA_COMP_REC_LEN_T 
10 A 10 aC 00018 AD. SIDR_POINTERS, BATA_SIDR_PTR_C 
4 0001D RET 
; Routine Size: 30 bytes, Routine Base: S$CODE$ + 044C 

; 689 1185 #1 

3 6690 1186 0 end eludom 

$ PSECT SUMMARY 

: Name Bytes Attributes 

: SOWNS 80 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: SCODES 1130 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

5 Library Statistics 

eee Ser noe =~. ae Symbols -<------ Pages Processing 

s File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 14 0 1000 00:01.8 

; COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RMSSTATS/OBJ=OBJ$:RMSSTATS MSRC$:RMSSTATS/UPDATE=(ENH$:RMSSTATS) 
Size: 1130 code + 80 data bytes 
Run Time: 0:22.1 
Elapsed Time: 01:04.5 
Lines/CPU Min: 3222 
Lexemes/CPU-Min: 11831 
penery Used: 222 pages 
Compilation Complete 
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